home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / cees-koch2.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  818 b   |  19 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║     Koch2.ls    │    (c) C.J. van der Mark      ║
  3. #╟─────────────────┴───────────────────────────────╢
  4. #║      Questions about Lparser files to:          ║
  5. #║        Internet  cvdmark@xs4all.nl              ║
  6. #║           Fido      2:283/203.11                ║
  7. #║           PCG       9:526/464.3                 ║
  8. #╚═════════════════════════════════════════════════╝
  9. #      This file produces the 3D Koch flake!
  10. 8
  11. 30
  12. 1
  13. C
  14. C=B+++&'(.5773503)f'(1.732051)---'(.450694)f'(2.218801)<|B
  15. B=[[^(19.47122)[{[+f++++f++++f]}h]^(70.528779)[{[+f++++f++++f]}i]]>>&(19.47122)[{[+f++++f++++f]}i]^(19.47122)+++f---<<<<&(19.47122)[{[+f++++f++++f]}i]]
  16. h=+(54.73561)'(.3061862)f'(3.265986)-(54.73561)&(90)'(.5)C'(2)
  17. i=+(54.73561)'(.3061862)f'(3.265986)-(114.73561)^(90)'(.5)C'(2)
  18. @
  19.